home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Video Toaster 4.3
/
Video Toaster v4.3.iso
/
3.1
/
toasterall
/
arexx_examples
/
tpaint
/
tpbars.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1993-05-13
|
463b
|
19 lines
/* Draw Bars Background */
/* © 1993 NewTek, Inc. by Arnie Cachelin */
address 'DigiPaint' /* Tell ARexx where commands go */
'Drre'
'Flon'
'Hvof' /* Turn off Horizontal and Vertical gradients */
'Varr' /* Toggle Vert. Gradient (on) */
'Dotb'
'Poth' $F000 /* Set Gradient center to middle ($0000 - $FFFF) */
'Rang'
h=80
do y=0 to 480-h by h
'Pend' 0 y
'Penu' 752 y+h
end
'Shco' /* Render to Program Out */
exit /* Bye bye! */